1 POKE53280,5:POKE53281,11:H$="[147] [205][213][204][212][201]-[211][208][210][201][212][197] [212][197][195][200][206][201][195][193][204] [201][206][198][207][210][205][193][212][201][207][206]" 2 H$=H$+" [194]Y [202]ASON [198]INCH ([195]) 1989 [195][196][213]" 3 PRINTH$:PRINT""," [158][205]AIN [207]PTIONS":PRINT," [163][163][163][163][163][163][163][163][163][163][163][163]":D=3:C$="[147][142]" 4 PRINT,"[157][157][157][150]1. [155][196]ISPLAY GENERAL STORES":PRINT,"[157][157][157][150]2. [155][208]RINT (1)" 5 PRINT,"[157][157][157][150]3. [155][196]ISPLAY [205].[195]ODE METHODS":PRINT,"[157][157][157][150]4. [155][208]RINT (3)":POKE198,0 6 GETA$:IFA$<"1"ORA$>"4"THEN6 7 ONVAL(A$)GOTO9,8,9,8 8 D=4:C$="[147][208]LEASE WAIT..." 9 OPEN1,D:PRINTC$;:PRINT#1,"MULTI-SPRITE TECHNICAL INFORMATION" 10 PRINT#1,"BY JASON FINCH COPYRIGHT 1989 CDU" 11 PRINT#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":IFA$>"2"THEN30 12 PRINT#1:PRINT#1,"GENERAL":PRINT#1,"[163][163][163][163][163][163][163]" 13 PRINT#1,"X-ORDS $C000-$C017 (49152-49175)" 14 PRINT#1,"Y-ORDS $C018-$C02F (49176-49199)" 15 PRINT#1,"COLOURS $C030-$C047 (49200-49223)" 16 PRINT#1,"POINTERS $C048-$C05F (49224-49278)" 17 PRINT#1,"DIVISIONS $C07F/$C080 (49279/49280)" 18 PRINT#1,"TIME CNST. $C081/$C082 (49281/49282)" 19 PRINT#1:PRINT#1,"BLOCKS 0 1 2":PRINT#1,"[163][163][163][163][163][163]" 20 PRINT#1,"MSB $C060 $C061 $C062" 21 PRINT#1,"XEXP $C063 $C064 $C065" 22 PRINT#1,"YEXP $C066 $C067 $C068" 23 PRINT#1,"ENAB $C069 $C06A $C06B" 24 PRINT#1,"MCOL $C06C $C06D $C06E" 25 PRINT#1,"COL1 $C06F $C070 $C071" 26 PRINT#1,"COL2 $C072 $C073 $C074" 27 PRINT#1,"PR'Y $C075 $C076 $C077":IFD=4THENPRINT#1 28 PRINT#1:CLOSE1:IFD=3THENPRINT"PRESS ANY KEY":POKE198,0:WAIT198,1:POKE198,0 29 GOTO3 30 RESTORE:PRINT#1:PRINT#1,"ASSEMBLY HEX [160] DEFINITION RANGE" 31 PRINT#1,"LANGUAGE EQUIVS." 32 READC$:IFLEFT$(C$,1)<>"*"THENREADP1$,P2$,P3$:GOTO37 33 IFC$="*END"THEN44 34 IFC$="*INT"ORD=4THEN36 35 PRINT"PRESS ANY KEY":POKE198,0:WAIT198,1:PRINT"[145] [145][145]" 36 PRINT#1:PRINT#1:PRINT#1,MID$(C$,2):PRINT#1,"[163][163][163]":GOTO32 37 IFC$="S"THEN42 38 IFC$="J"THEN43 39 P=18:IFP1$<>"83"THENP1$=P1$+P1$:P=13 40 PRINT#1,"LD"C$" #"P1$" "P2$RIGHT$(" ",P-LEN(P2$))P3$ 41 GOTO32 42 PRINT#1,"STA "P1$" $"P2$:GOTO32 43 PRINT#1,"JSR "P1$" $"P2$:GOTO32 44 PRINT#1:PRINT#1:IFD=3THENPRINT"PRESS ANY KEY FOR MENU":POKE198,0:WAIT198,1 45 POKE198,0:CLOSE1:GOTO3 46 DATA*INT,J,49427,C113,,*OFF,J,51252,C834,,*POS,A,N,SPR.NUMBER,0-23 47 DATAS,49284,C084,,A,X,X-ORDINATE,0-511,S,49285,C085,,S,49288,C088,,A,M,MSB 48 DATA0/1,S,49286,C086,,S,49289,C089,,A,Y,Y-ORDINATE,0-255,S,49287,C087, 49 DATAA,83,ASCII CODE FOR 'S',,S,49295,C08F,,J,50139,C3DB,,*COL,A,N,SPR.NUMBER 50 DATA0-23,S,49284,C084,,A,C,COLOUR,0-15,S,49285,C085,,J,50216,C428,,*SIZ 51 DATAA,N,SPR.NUMBER,0-23,S,49284,C084,,A,E,EXPANSION,0-3,S,49285,C085, 52 DATAJ,50254,C44E,,*ENA,A,N,SPR.NUMBER,0-23,S,49284,C084,,A,E,DIS/ENABLE 53 DATA0/1,S,49285,C085,,J,50357,C4B5,,*PRT,A,N,SPR.NUMBER,0-23,S,49284,C084, 54 DATAA,P,PRIORITY,0/1,S,49285,C085,,J,50396,C4DC,,*MUL,A,N,SPR.NUMBER,0-23 55 DATAS,49284,C084,,A,M,MULTICOLOUR,0/1,S,49285,C085,,J,50435,C503, 56 DATA*CL1,A,B,BLOCK NUMBER,0-2,S,49284,C084,,A,C,COLOUR,0-15,S,49285,C085, 57 DATAJ,50474,C52A,,*CL2,A,B,BLOCK NUMBER,0-2,S,49284,C084,,A,C,COLOUR,0-15 58 DATAS,49285,C085,,J,50504,C548,,*POI,A,N,SPR.NUMBER,0-23,S,49284,C084, 59 DATAA,P,POINTER,0-255,S,49285,C085,,J,50534,C566,,*ADD,A,D,DIV.POS'N 60 DATAVAR.,S,49284,C084,,J,51176,C7E8,,*DIV (WITH 16 SPRS),A,D,DIV.POS'N 61 DATA0-149,S,49284,C084,,J,50601,C5A9,,*DIV (WITH 24 SPRS),A,D,DIV1 POS'N 62 DATA0-117,S,49284,C084,,A,D,DIV2 POS'N,32-149,S,49285,C085,,J,50612,C5B4, 63 DATA*TIM,A,X,UPPER T.LOOP,1-20,S,49284,C084,,A,Y,LOWER LOOP,1-20,S,49285 64 DATAC085,,J,50665,C5E9,,*FOR,A,F,FORMAT NO.,0-4,S,49284,C084,,J,50717,C61D, 65 DATA*VDU,A,B,BORDER COL.,0-15,S,49284,C084,,A,G,BACKG'ND,0-15,S,49285,C085 66 DATA,A,I,INK COLOUR.,0-15,S,49286,C086,,J,50784,C660, 67 DATA*COM,A,N,SPR.NUMBER,0-23,S,49284,C084,,A,B,BLK SELECT'N,1-3 68 DATAS,49285,C085,,J,50868,C6B4,,*BKP,A,L,LOW BYTE,0-255,X,H,HIGH BYTE 69 DATA1-255,J,50966,C716,,*END